home *** CD-ROM | disk | FTP | other *** search
/ ftp.elysium.pl / ftp.elysium.pl.tar / ftp.elysium.pl / docs / programming / tutorials / SCIBAX64.ZIP / scibax33.sfx / sprite ripper / sx / sx.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-02-12  |  2.7 KB  |  97 lines
  1. 10 POKE808,234
  2. 15 V=53248:PRINT"[147]":A=2040:R=3
  3. 20 POKE53280,0:POKE53281,0
  4. 25 PRINT"[158]SHOCK XPRESS PRESENTS: SPRITE RIPPER"
  5. 30 PRINT"(C) 1989 [156]BY [152]EVIL WIZARD"
  6. 35 PRINT:PRINT:PRINT"[151]INSTRUCTIONS"
  7. 40 PRINT"------------"
  8. 45 PRINT:PRINT"AFTER LOADING AND RUNNING THE GAME,"
  9. 50 PRINT"DEMO, OR WHATEVER WITH THE [158]SPRITES THAT"
  10. 55 PRINT"YOU WANT TO [152]RIP RESET THE COMPUTER "
  11. 60 PRINT"WHEN THE SPRITES ARE ON THE SCREEN AND"
  12. 65 PRINT"THEN RUN THIS PROGRAM."
  13. 70 PRINT:PRINT"THIS PROGRAM WILL [152]RIP [158]SPRITES IN"
  14. 75 PRINT"ALL BANKS."
  15. 80 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"PRESS <RETURN> TO [152]RIP"
  16. 85 GETA$:IFA$=""THEN85
  17. 90 POKEV+21,255:P(1)=PEEK(2040):POKEV+28,255
  18. 95 FORX=2TO8:P(X)=P(X-1)+1:NEXT
  19. 100 PRINT"[147][158]SHOCK XPRESS PRESENTS: SPRITE RIPPER"
  20. 105 PRINT"(C) 1989 [156]BY [152]EVIL WIZARD"
  21. 110 PRINT:PRINT"+ TO MOVE [154]FORWARD[152] IN MEMORY"
  22. 115 PRINT"- TO MOVE [154]BACKWARD[152] IN MEMORY"
  23. 120 PRINT"M TOGGLE  [154]MULTI-COLOR[152] ON/OFF"
  24. 125 PRINT"R RIP[152] SOME SPRITES"
  25. 130 POKEV,55:POKEV+1,150
  26. 135 POKEV+2,120:POKEV+3,150
  27. 140 POKEV+4,185:POKEV+5,150
  28. 145 POKEV+6,250:POKEV+7,150
  29. 150 POKEV+8,55:POKEV+9,200
  30. 155 POKEV+10,120:POKEV+11,200
  31. 160 POKEV+12,185:POKEV+13,200
  32. 165 POKEV+14,250:POKEV+15,200
  33. 170 PRINT:PRINT"POINTER:"
  34. 175 PRINT:PRINTTAB(3)P(1)TAB(11)P(2)TAB(19)P(3)TAB(27)P(4)
  35. 180 PRINT:PRINT:PRINT:PRINT
  36. 185 PRINT:PRINTTAB(3)P(5)TAB(11)P(6)TAB(19)P(7)TAB(27)P(8)
  37. 190 GETA$:IFA$=""THEN190
  38. 195 IFA$="+"THENGOSUB220:GOTO175
  39. 196 IFA$="-"THENGOSUB245:GOTO175
  40. 197 IFA$="1"THENCC=53287:GOTO500
  41. 198 IFA$="2"THENCC=53288:GOTO500
  42. 199 IFA$="3"THENCC=53289:GOTO500
  43. 200 IFA$="4"THENCC=53290:GOTO500
  44. 201 IFA$="5"THENCC=53291:GOTO500
  45. 202 IFA$="6"THENCC=53292:GOTO500
  46. 203 IFA$="7"THENCC=53293:GOTO500
  47. 204 IFA$="8"THENCC=53294:GOTO500
  48. 205 IFA$="9"THENCC=53285:GOTO500
  49. 206 IFA$="0"THENCC=53286:GOTO500
  50. 209 IFA$="M"THENGOSUB235:GOTO190
  51. 210 IFA$="R"THENGOTO305
  52. 211 IFA$="[133]"THENPOKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3:A=2040:R=3
  53. 212 IFA$="[134]"THENPOKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR2:A=18424:R=2
  54. 213 IFA$="[135]"THENPOKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1:A=34808:R=1
  55. 214 IFA$="[136]"THENPOKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR0:A=51192:R=0
  56. 215 GOTO190
  57. 220 P(1)=P(8)+1:IFP(1)>=254THEN390
  58. 225 FORX=2TO8:P(X)=P(X-1)+1:NEXT
  59. 230 GOSUB260:RETURN
  60. 235 IFPEEK(V+28)=0THENPOKEV+28,255:RETURN
  61. 240 POKEV+28,0:RETURN
  62. 245 P(1)=P(1)-8:IFP(1)<=0THEN400
  63. 250 FORX=2TO8:P(X)=P(X-1)+1:NEXT
  64. 255 GOSUB260:RETURN
  65. 260 PRINT"[145][145][145][145][145][145][145][145]"
  66. 265 PRINT"                                    "
  67. 270 PRINT:PRINT:PRINT:PRINT:PRINT
  68. 275 PRINT"                                    "
  69. 280 PRINT"[145][145][145][145][145][145][145][145][145]"
  70. 285 FORX=1TO8:IFP(X)>255THENP(X)=255
  71. 290 IFP(X)<0THENP(X)=0
  72. 295 NEXT
  73. 300 FORX=1TO8:POKEA-1+X,P(X):NEXT:RETURN
  74. 305 PRINT"";:INPUT"*** START POINTER TO SAVE -=>";S
  75. 310 IF S<0 OR S>255 THEN 100
  76. 315 PRINT"";:INPUT"***   END POINTER TO SAVE -=> [157]";E
  77. 320 IF E<0 OR E>255 THEN 100
  78. 325 PRINT"                                  "
  79. 330 PRINT"";:INPUT"ENTER FILENAME -=>";N$
  80. 335 S=S*64+(16384*(3-R)):E=E*64+65+(16384*(3-R))
  81. 340 POKE781,8:POKE782,0:SYS65466
  82. 345 N$=LEFT$(N$,16)
  83. 350 FORF=1TOLEN(N$):POKE827+F,ASC(MID$(N$,F,1)):NEXT
  84. 355 POKE780,LEN(N$):POKE781,60:POKE782,3:SYS65469
  85. 360 IFS<255THENPOKE4,S:POKE3,0:GOTO370
  86. 365 POKE4,INT(S/256):POKE3,S-(INT(S/256)*256)
  87. 370 IFE<255THENPOKE782,E:POKE781,0:GOTO380
  88. 375 POKE782,INT(E/256):POKE781,E-(INT(E/256)*256)
  89. 380 POKE780,3:SYS62941
  90. 385 PRINT"[147]RIPPED!":NEW
  91. 390 FORX=1TO8:P(X)=255:NEXT
  92. 395 GOTO230
  93. 400 FORX=1TO8:P(X)=0:NEXT
  94. 405 GOTO255
  95. 500 IFPEEK(CC)=255THENPOKECC,0:GOTO190
  96. 510 POKECC,PEEK(CC)+1:GOTO190
  97.